home *** CD-ROM | disk | FTP | other *** search
-
- YesStock ActiveX Control
-
- This ActiveX OCX control provides Visual Basic programmer a tool to develop stock-related applications.
- For example, you can create your own stock database, and you can create a stock screening program based on
- your own stock database.(Actually I have my VB programs, I let my StockDataCollector run at night, and it will automatically
- collect the information over 9000 stock, and in the morning I run my stock screening program for any given criteria.)
-
- INSTALLATION/UNINSTALL
-
- For Win95/98, copy YesStock.ocx into your C:\windows\system
- directory. For WinNT, copy into C:\Winnt\system32 directory. Then go to Start|Run and type "regsvr32 YesStock.ocx".
-
- To uninstall YesStock.ocx. Go to Start|Run and type "regsvr32 /u YesStock.ocx".
-
-
- HOW TO USE THIS CONTROL
-
- Just drag and draw the control, then set the control's symbol(ticker) property, and run GetStockInfo method.
- 24 properties (24 stock information) will then be available.
-
- Example,
-
- YesStock1.Symbol="One" 'set ticker to Banc ONE
- YesStock1.GetStockInfo 'run method
-
- Msgbox "last =" & YesStock1.Quote
- Msgbox "52 Week High =" & YesStock1.WeekHigh
- Msgbox "52 Week Low =" & YesStock1.WeekLow
- Msgbox "Volume ="& YesStock1.olume
- Msgbox "Average Daily Volume =" & YesStock1.AveVolume
- Msgbox "3 Month Change =" & YesStock1.Change3M
- Msgbox "3 Month Relative Strength =" & YesStock1.Strength3M
- Msgbox "6 Month Change =" & YesStock1.Change6M
- Msgbox "6 Month Relative Strength =" & YesStock1.Strength6M
- Msgbox "12 Month Change =" & YesStock1.Change12M
- Msgbox "12 Month Relative Strength =" & YesStock1.Strength12M
- Msgbox "5 Year Sales Growth =" & YesStock1.SalesGrowth
- Msgbox "5 Year Income Growth =" & YesStock1.IncomeGrowth
- Msgbox "5 Year Dividend Rate Growth =" & YesStock1.DividendRateGrowth
- Msgbox "P/E=" & YesStock1.PE
- Msgbox "EPS=" & YesStock1.EPS
- Msgbox "Dividend Yield =" & YesStock1.DividendYield
- Msgbox "Debt/Equity Ratio =" & YesStock1.DebtEquity
- Msgbox "Net Profit Margin =" & YesStock1.ProfitMargin
- Msgbox "Shares Outstanding =" & YesStock1.SharesOutstanding)
- Msgbox "Market Capitalization =" & YesStock1.MarketCap
- Msgbox "50 Day Moving Average =" & YesStock1.MovingAverage50Day
- Msgbox "200 Day Moving Average =" & YesStock1.MovingAverage200Day
- Msgbox "Institutional Ownership =" & YesStock1.InstitutionalOwnership
-
- REGISTRATION
-
- If you like it or you think you can make more money in the stock market with this tool,
- send a check of $8 to (or any amount will be appreciated):
-
- Jian YE
- 5750 LIMESTONE DR.
- TROY, MI 48098
-
- If you want more info about my 9000+ stocks database program and stock screening program, drop me an e-mail.
-
- Jian YE
- jye@engenius.com
-